with Rational_Numbers.Reducing_Binary_Operator;
with Rational_Numbers.Reducing_Binary_Operators;
with Rational_Numbers;

package body Rational_Numbers.Reducing_Binary_Operators is

   function plus is new Rational_Numbers.Reducing_Binary_Operator(Rational_Numbers.Binary_Operators."+") ;

   function "+"(X, Y : Rational) return Rational
     renames Plus;

   function minus is new Rational_Numbers.Reducing_Binary_Operator(Rational_Numbers.Binary_Operators."-") ;

   function "-"(X, Y : Rational) return Rational
     renames Minus;

   function multi is new Rational_Numbers.Reducing_Binary_Operator(Rational_Numbers.Binary_Operators."*") ;

   function "*"(X, Y : Rational) return Rational
     renames Multi;

   function div is new Rational_Numbers.Reducing_Binary_Operator(Rational_Numbers.Binary_Operators."*") ;

   function "/"(X, Y : Rational) return Rational
     renames Div;






end Rational_Numbers.Reducing_Binary_Operators;
